perm filename NUM.F4[RK,LCS] blob sn#234297 filedate 1976-09-01 generic text, type T, neo UTF8
00100		DIMENSION A(10)
00200		DATA A/36.,76.,1.,90.,7.,13.,3.,9.,48.,53./
00210		N=10
00300		Z=A(1)
00400		J=2
00500	1	IF(J.GT.N)GOTO6
00600	5	IF(Z.LT.A(J))Z=A(J)
00700		J=J+1
00710		TYPE 7,Z
00800		GOTO1
00910	7	FORMAT(F)
01000	6	STOP
01100		END